home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / data erzeuger (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  56 lines

  1. 10 REM ********************************
  2. 15 REM *                              *
  3. 20 REM *          DATA-MAKER          *
  4. 30 REM *                              *
  5. 40 REM *        JOERG MATERNA         *
  6. 50 REM *        BECKUMER STR.91       *
  7. 60 REM *        4730 AHLEN            *
  8. 65 REM *                              *
  9. 70 REM ********************************
  10. 75 REM
  11. 80 PRINT CHR$(147)
  12. 100 FOR A=49152 TO 49986:READ X:POKE A,X:SU=SU+X:NEXT
  13. 105 IF SU<>102090 THEN PRINT "DATA-FEHLER"
  14. 106 PRINT "PROGRAMM OK"
  15. 110 DATA169,0,141,65,195,32,233,193,132,251,133,252,32,233,193,140,54,195,141,55
  16. 120 DATA195,32,233,193,140,59,195,141,60,195,32,253,174,32,158,183,142,63,195,138
  17. 130 DATA208,3,76,58,194,165,252,205,55,195,144,12,208,7,165,251,205,54,195,144
  18. 140 DATA3,76,68,194,56,165,45,233,2,141,61,195,133,253,165,46,233,0,141,62,195
  19. 150 DATA133,254,160,2,173,59,195,145,253,200,173,60,195,145,253,200,169,129,145
  20. 160 DATA253,200,169,65,145,253,200,169,178,145,253,200,152,72,165,251,166,252,32
  21. 170 DATA243,193,141,64,195,104,168,32,7,194,169,164,145,253,200,152,72,173,54,195
  22. 180 DATA174,55,195,32,243,193,141,64,195,104,168,32,7,194,169,58,145,253,200,169
  23. 190 DATA135,145,253,200,169,88,145,253,200,169,58,145,253,200,169,151,145,253,200
  24. 200 DATA169,65,145,253,200,169,44,145,253,200,169,88,145,253,200,169,58,145,253
  25. 210 DATA200,169,130,145,253,76,52,193,160,2,173,59,195,145,253,200,173,60,195,145
  26. 220 DATA253,200,169,131,145,253,200,152,72,160,0,177,251,32,160,193,104,168,173
  27. 230 DATA56,195,201,48,240,3,145,253,200,173,57,195,201,48,208,10,173,56,195,201
  28. 240 DATA48,240,6,173,57,195,145,253,200,173,58,195,145,253,165,251,205,54,195,208
  29. 250 DATA13,165,252,205,55,195,208,6,238,65,195,76,52,193,230,251,208,2,230,252
  30. 260 DATA192,74,176,8,200,169,44,145,253,76,223,192,200,169,0,145,253,200,140,64
  31. 270 DATA195,160,0,24,165,253,109,64,195,145,253,141,64,195,165,254,105,0,200,145
  32. 280 DATA253,133,254,197,56,208,3,76,45,194,173,64,195,133,253,173,65,195,208,28
  33. 290 DATA24,173,59,195,109,63,195,141,59,195,144,13,238,60,195,173,60,195,201,250
  34. 300 DATA208,3,76,32,194,76,205,192,24,165,253,105,2,133,45,165,254,133,46,144,2
  35. 310 DATA230,46,160,0,152,145,253,200,145,253,32,78,194,32,96,166,76,134,227,162
  36. 320 DATA0,142,56,195,142,57,195,142,58,195,201,100,144,8,233,100,238,56,195,76
  37. 330 DATA171,193,201,10,144,8,233,10,238,57,195,76,183,193,201,0,240,8,238,58,195
  38. 340 DATA233,1,76,195,193,24,169,48,109,56,195,141,56,195,169,48,109,57,195,141
  39. 350 DATA57,195,169,48,109,58,195,141,58,195,96,32,253,174,32,138,173,32,247,183
  40. 360 DATA96,133,99,134,98,162,144,56,32,73,188,32,223,189,32,135,180,32,166,182
  41. 370 DATA96,162,0,165,34,141,20,194,165,35,141,21,194,189,0,1,145,253,200,232,206
  42. 380 DATA64,195,208,244,96,32,86,194,169,120,160,194,32,30,171,76,154,193,32,86
  43. 390 DATA194,169,155,160,194,32,30,171,76,154,193,169,192,160,194,32,30,171,76,154
  44. 400 DATA193,169,229,160,194,32,30,171,76,154,193,169,11,160,195,32,30,171,96,173
  45. 410 DATA61,195,133,253,173,62,195,133,254,160,0,152,145,253,200,145,253,24,173
  46. 420 DATA61,195,105,2,133,45,173,62,195,105,0,133,46,96,18,90,69,73,76,69,78,78
  47. 430 DATA85,77,77,69,82,32,71,82,79,69,83,83,69,82,32,65,76,83,32,54,51,57,57,57
  48. 440 DATA33,146,0,18,70,82,69,73,69,82,32,83,80,69,73,67,72,69,82,80,76,65,84,90
  49. 450 DATA32,82,69,73,67,72,84,32,78,73,67,72,84,33,146,0,18,48,32,65,76,83,32,83
  50. 460 DATA67,72,82,73,84,84,87,69,73,84,69,32,78,73,67,72,84,32,77,79,69,71,76,73
  51. 470 DATA67,72,33,146,0,18,65,78,70,65,78,71,83,65,68,82,69,83,83,69,32,62,32,69
  52. 480 DATA78,68,65,68,82,69,83,83,69,46,70,69,72,76,69,82,33,146,0,18,42,32,68,65
  53. 490 DATA84,65,32,69,82,90,69,85,71,69,82,32,70,69,82,84,73,71,33,32,40,67,41,32
  54. 500 DATA74,46,77,65,84,69,82,78,65,46,32,42,146,0,66,195,49,52,50,244,1,1,8,10
  55. 510 DATA48,0,0
  56.